(ad-special-forms): Correct the conditional inclusion of `track-mouse'.

diff --git a/lisp/emacs-lisp/advice.el b/lisp/emacs-lisp/advice.el
index c8f7be749f045e484e724a21920c1207543e5531..4d32929ee9b6fa288b9649b2cd855ea064ed8a8c 100644 (file)
--- a/lisp/emacs-lisp/advice.el
+++ b/lisp/emacs-lisp/advice.el
@@ -2471,7 +2471,7 @@ will clear the cache."
                   defun defvar function if interactive let let*
                   or prog1 prog2 progn quote save-current-buffer
                   save-excursion save-restriction save-window-excursion
-                  setq setq-default track-mouse unwind-protect while
+                  setq setq-default unwind-protect while
                   with-output-to-temp-buffer)))
     ;; track-mouse could be void in some configurations.
     (if (fboundp 'track-mouse)